home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / zendisk2.zip / PTEST.ASM < prev    next >
Assembly Source File  |  1990-02-15  |  770b  |  36 lines
  1. ;
  2. ; Program to measure performance of code that takes less than
  3. ; 54 ms to execute.
  4. ; Link with PZTIMER.OBJ.
  5. ;
  6. ; By Michael Abrash 10/30/87
  7. ;
  8. stack    segment    para stack 'STACK'
  9.     db    512 dup(?)
  10. stack    ends
  11.  
  12. Code    segment    para public 'CODE'
  13.     assume    cs:Code, ds:code
  14.     extrn    ZTimerOn:near, ZTimerOff:near, ZTimerReport:near
  15. Start    proc    near
  16.     push    cs
  17.     pop    ds    ;set DS to point to the code segment
  18. ;
  19. ;Code under test starts here.
  20. ;*********************************************************************
  21.     include    testcode
  22. ;*********************************************************************
  23. ; Code under test ends here.
  24. ;
  25. ; Display the results.
  26. ;
  27.     call    ZTimerReport
  28. ;
  29. ; Terminate the program.
  30. ;
  31.     mov    ah,4ch
  32.     int    21h
  33. Start    endp
  34. Code    ends
  35.     end    Start
  36.